﻿Imports System

Namespace System.Workflow.Runtime
    Public NotInheritable Class CorrelationTokenEventArgs
        Inherits EventArgs
        ' Methods
        Friend Sub New(ByVal correlator As CorrelationToken, ByVal initialized As Boolean)
            Me.correlator = correlator
            Me.initialized = initialized
        End Sub


        ' Properties
        Public ReadOnly Property CorrelationToken As CorrelationToken
            Get
                Return Me.correlator
            End Get
        End Property

        Public ReadOnly Property IsInitializing As Boolean
            Get
                Return Me.initialized
            End Get
        End Property


        ' Fields
        Private correlator As CorrelationToken
        Private initialized As Boolean
    End Class
End Namespace

